home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
ladybug2.arc
/
TREES.BUG
< prev
Wrap
Text File
|
1983-09-26
|
479b
|
8 lines
make "description [TREES; from "Logo for the Apple II", pgs. 63-64]
define "vee [[][left 45][forward 10][back 10][right 90][forward 10][back 10][left 45]]
define "branch [[][forward 15][vee][forward 15][vee][forward 10][back 40]]
define "bush [[][left 60][repeat 4 [branch right 30]][branch][left 60]]
define "greentree [[][forward 50][bush][back 50]]
define "treemove [[][penup][right 90][forward 80][left 90][pendown]]
define "trees [[][repeat 3 [greentree treemove]]]